 function greekbrasil(form)
{
  var xa =form.d1.value;
  var ya =form.d2.value;
  var xb =form.d3.value;
  var yb =form.d4.value;
  var alef =form.a.value;
  var brig =form.b.value;

  var look1=/[A-z/Α-ω]/g;
  var res1=xa.search(look1);
  var res2=ya.search(look1);
  var res3=xb.search(look1);
  var res4=yb.search(look1);
  var res5=alef.search(look1);
  var res6=brig.search(look1);
  
 if ( res1!=-1 ) 
{
  alert ('ΜΗ ΕΓΚΥΡΑ ΔΕΔΟΜΕΝΑ ΣΤΟ ΠΛΑΙΣΙΟ...ΧΑ');
  return;
}
else if ( res2!=-1 ) 
{
  alert ('ΜΗ ΕΓΚΥΡΑ ΔΕΔΟΜΕΝΑ ΣΤΟ ΠΛΑΙΣΙΟ...ΨΑ');
  return;
}
else if ( res3!=-1 ) 
{
  alert ('ΜΗ ΕΓΚΥΡΑ ΔΕΔΟΜΕΝΑ ΣΤΟ ΠΛΑΙΣΙΟ...ΧΒ');
  return;
}
else if ( res4!=-1 ) 
{
  alert ('ΜΗ ΕΓΚΥΡΑ ΔΕΔΟΜΕΝΑ ΣΤΟ ΠΛΑΙΣΙΟ...ΨΒ');
  return;
}
else if ( res5!=-1 ) 
{
  alert ('ΜΗ ΕΓΚΥΡΑ ΔΕΔΟΜΕΝΑ ΣΤΟ ΠΛΑΙΣΙΟ...α');
  return;
}
else if ( res6!=-1 ) 
{
  alert ('ΜΗ ΕΓΚΥΡΑ ΔΕΔΟΜΕΝΑ ΣΤΟ ΠΛΑΙΣΙΟ...β');
  return;
} 

if ( xa=="" || ya=="" || xb=="" || yb=="" || alef=="" || brig=="" ) 

{
  alert ('ΕΙΣΑΓΕΤΕ ΔΕΔΟΜΕΝΑ');
  return;
}

if ( alef<=0 || alef>=200 || brig<=0 || brig>=200 ) 

{
  alert ('ΜΗ ΕΓΚΥΡΗ ΓΩΝΙΑ');
  return;
}
  
x1=parseFloat(xa); 
y1=parseFloat(ya); 
x2=parseFloat(xb); 
y2=parseFloat(yb); 
a=parseFloat(alef);
b=parseFloat(brig);

m=200-a-b; // ãùíßá óôï M
dx=x2-x1; //Ä×áâ
dy=y2-y1; //ÄØáâ
pano=a*(Math.PI/200); // ãùíßá á âáèìïýò -> áêôßíéá
pano1=Math.cos(pano); // åýñåóç óõíá
pano2=Math.sin(pano); // åýñåóç çìá
pano3=pano1/pano2; // óöá
pano4=dx*pano3;
pano5=pano4-dy; // áñéèìçôÞò
kato=b*(Math.PI/200); // ãùíßá â âáèìïýò -> áêôßíéá
kato1=Math.cos(kato); //åýñåóç óõíâ
kato2=Math.sin(kato); //åýñåóç çìâ
kato3=kato1/kato2; // óöâ
kato4=pano3+kato3; // ðáñáíïìáóôÞò
xma=x1+(pano5/kato4); // XM áðü óçìåßï Á
teliko1=dy*pano3;
teliko2=teliko1+dx;
yma=y1+(teliko2/kato4); // YM áðü óçìåßï Á
k1=dx*kato3; // áðü ôï óçìåéï Â
k2=-k1-dy; // ÁñéèìçôÞò
k3=k2/kato4; // áñéèìçôÞò/ðáñáíïìáóôÞò
xmb=x2+k3; // XM áðü ôï óçìåßï Â
k4=dy*kato3; // ÄØ*óöâ
k5=dx-k4; // arithmitis
k6=k5/kato4;
ymb=y2+k6; // YM apo to simeio B

boli=x1-xma; // Åñãáóßá ÅëÝã÷ïõ.Åýñåóç G(ÌÁ).åýñåóç ôïõ Ä×ÌÁ.
bele=y1-yma; // Åýñåóç ôïõ ÄÕÌÁ.
kt=boli/bele; // Åýñåóç ôïõ DX/DY.
baret=Math.atan(kt)*(63.661977236758134307553505349006);
destori=Math.abs(baret); // Åýñåóç ôçò áñ÷éêÞò ãùíßáò.
if (boli>0 && bele>0) 
{
   krak=destori;
}
else if (boli>0 && bele==0)
{
 
  krak=100;
 
}
 
 else if (boli>0 && bele<0)
 
{
 
  krak=200-destori;
 
}
 
 else if (boli<0 && bele>0)
 
{
 
  krak=400-destori;
 
}
 
 else if (boli<0 && bele==0)
 
{
 
  krak=300;
 
}
 
 else if (boli<0 && bele<0)
 
{
 
  krak=200+destori;
 
}
 
 else if (boli==0 && bele>0)
 
{
 
  krak=0;
 
}
 
 else if (boli==0 && bele<0)
 
{
 
  krak=200;
 
}
balek=x2-xmb; // Åñãáóßá ÅëÝã÷ïõ.Åýñåóç G(ÌB).åýñåóç ôïõ Ä×ÌB.
beloto=y2-ymb; // Åýñåóç ôïõ ÄÕÌB.
jr=balek/beloto; // Åýñåóç ôïõ DX/DY.
frulo=Math.atan(jr)*(63.661977236758134307553505349006);
danos=Math.abs(frulo); // Åýñåóç ôçò áñ÷éêÞò ãùíßáò.
if (balek>0 && bele>0) 
{
   hurk=danos;
}
else if (balek>0 && beloto==0)
{
 
  hurk=100;
 
}
 
 else if (balek>0 && beloto<0)
 
{
 
  hurk=200-danos;
 
}
 
 else if (balek<0 && beloto>0)
 
{
 
  hurk=400-danos;
 
}
 
 else if (balek<0 && beloto==0)
 
{
 
  hurk=300;
 
}
 
 else if (balek<0 && beloto<0)
 
{
 
  hurk=200+danos;
 
}
 
 else if (balek==0 && beloto>0)
 
{
 
  hurk=0;
 
}
 
 else if (balek==0 && beloto<0)
 
{
 
  hurk=200;
 
}
ferto=krak-hurk;
copaca=ferto-m;

xnew1=xma.toFixed(2);
ynew1=yma.toFixed(2);
xnew2=xmb.toFixed(2);
ynew2=ymb.toFixed(2);
elexos1=Math.abs(copaca);
elexos=elexos1.toFixed(4);

if (isNaN(xnew1) || isNaN(ynew1) || isNaN(xnew2) || isNaN(ynew2))

{
  alert (' ΑΔΥΝΑΤΗ Η ΕΚΤΕΛΕΣΗ ΤΟΥ ΠΡΟΓΡΑΜΜΑΤΟΣ.ΠΛΗΚΤΡΟΛΟΓΗΘΗΚΕ ΑΓΝΩΣΤΟ ΣΥΜΒΟΛΟ ');
  return;
}

alert("XM από Α = "+xnew1+'\n'+"ΨM από Α = "+ynew1+'\n\n'+"XM από Β = "+xnew2+'\n'+"ΨM από Β= "+ynew2+'\n\n'+" * * * * * * * * * * * * *  "+'\n'+"ΕΛΕΓΧΟΣ= "+elexos);

}